Global $adj, $char, $cnt, $inifle

$inifle = @ScriptDir & "\Settings.ini"
$def = IniRead($inifle, "Title", "part", "")
AutoItSetOption("WinTitleMatchMode", 2)
WinActivate($def, "")
Send("+{END}")
Send("^c")
$cnt = ClipGet()
$cnt = StringLen($cnt)
If $cnt < 101 Then
Send("{LEFT}")
Send("{DOWN}")
Else
$adj = $cnt - 102
Send("{RIGHT}")
Send("{LEFT " & $adj & "}")
$char = ""
While $char <> ","
Send("{LEFT}")
Send("+{LEFT}")
Send("^c")
$char = ClipGet()
WEnd
Send("{LEFT}")
Send("+{END}")
Send("^c")
$char = ClipGet()
$char = StringTrimLeft($char, 2)
;MsgBox(0, "Selected Text", $char)
If $char <> "" Then
Send("{DEL}")
Send("{RIGHT}")
Send("+{RIGHT 6}")
Send("^c")
If ClipGet() <> "Global" Then
Send("{LEFT}")
Send("Global " & $char)
Send("+{HOME}")
Send("{LEFT}")
Send("{DOWN}")
Send("{ENTER}")
Send("{UP}")
Else
Send("{RIGHT 2}")
Send($char & ", ")
Send("+{HOME}")
Send("{LEFT}")
EndIf
EndIf
EndIf
Exit
